;;;This autolisp routine was created using:
;;;	WDIMSTYLE.LSP
;;;	By: Henry C. Francis
;;;	All rights reserved
;;;	www.paracadd.com
;;;
(DEFUN C:MECHDIMS ()
       (SETVAR "LUNITS" 4)		;  Linear Units (4=Architectural)
       (SETVAR "DIMADEC" 2)		;  Angular decimal places
       (SETVAR "DIMALT" 0)		;  Alternate units selected
       (SETVAR "DIMALTD" 2)		;  Alternate unit decimal places
       (SETVAR "DIMALTF" 025.4)		;  Alternate unit scale factor
       (SETVAR "DIMALTRND" 00)		;  Alternate units rounding value
       (SETVAR "DIMALTTD" 2)		;  Alternate tolerance decimal places
       (SETVAR "DIMALTTZ" 3)		;  Alternate tolerance zero suppression
       (SETVAR "DIMALTU" 2)		;  Alternate units
       (SETVAR "DIMALTZ" 3)		;  Alternate unit zero suppression
       (SETVAR "DIMAPOST" "")		;  Prefix and suffix for alternate text
       (SETVAR "DIMASZ" 0.13)		;  Arrow size
       (IF (<= (ATOF (GETVAR "ACADVER")) 15.5)
         (SETVAR "DIMASO" 1)		;  Associative dimensions (older versions use DIMASO)
         (SETVAR "DIMASSOC" 2)		;  Associative dimensions (newer versions use DIMASSOC)
       )
       (SETVAR "DIMATFIT" 3)		;  Arrow and text fit
       (SETVAR "DIMAUNIT" 0)		;  Angular unit format
       (SETVAR "DIMAZIN" 3)		;  Angular zero supression
       (SETVAR "DIMBLK" "DIMARO")	;  Arrow block name
       (SETVAR "DIMBLK1" "")		;  First arrow block name
       (SETVAR "DIMBLK2" "")		;  Second arrow block name
       (SETVAR "DIMCEN" 0.09)		;  Center mark size
       (SETVAR "DIMCLRD" 256)		;  (BYLAYER) Dimension line and leader color
       (SETVAR "DIMCLRE" 256)		;  (BYLAYER) Extension line color
       (SETVAR "DIMCLRT" 6)		;  (MAGENTA) Dimension text color
       (SETVAR "DIMDEC" 2)		;  Decimal places
       (SETVAR "DIMDLE" 00)		;  Dimension line extension
       (SETVAR "DIMDLI" 0.38)		;  Dimension line spacing
       (SETVAR "DIMDSEP" ".")		;  Decimal separator
       (SETVAR "DIMEXE" 0.06)		;  Extension above dimension line
       (SETVAR "DIMEXO" 0.06)		;  Extension line origin offset
       (SETVAR "DIMFRAC" 1)		;  Fraction format
       (SETVAR "DIMGAP" 0.09)		;  Gap from dimension line to text
       (SETVAR "DIMJUST" 0)		;  Justification of text on dimension line
       (SETVAR "DIMLDRBLK" "DIMARO")	;  Leader block name
       (SETVAR "DIMLFAC" -1)		;  Linear unit scale factor
       (SETVAR "DIMLIM" 0)		;  Generate dimension limits
       (SETVAR "DIMLUNIT" 2)		;  Linear unit format (4=Architectural)
       (SETVAR "DIMLWD" -2)		;  Dimension line and leader lineweight
       (SETVAR "DIMLWE" -2)		;  Extension line lineweight
       (SETVAR "DIMPOST" "")		;  Prefix and suffix for dimension text
       (SETVAR "DIMRND" 0.13)		;  Rounding value
       (SETVAR "DIMSAH" 0)		;  Separate arrow blocks
       (SETVAR "DIMSD1" 0)		;  Suppress the first dimension line
       (SETVAR "DIMSD2" 0)		;  Suppress the second dimension line
       (SETVAR "DIMSE1" 0)		;  Suppress the first extension line
       (SETVAR "DIMSE2" 0)		;  Suppress the second extension line
       (SETVAR "DIMSOXD" 0)		;  Suppress outside dimension lines
       (SETVAR "DIMTAD" 0)		;  Place text above the dimension line
       (SETVAR "DIMTDEC" 2)		;  Tolerance decimal places
       (SETVAR "DIMTFAC" 01)		;  Tolerance text height scaling factor
       (SETVAR "DIMTIH" 1)		;  Text inside extensions is horizontal
       (SETVAR "DIMTIX" 0)		;  Place text inside extensions
       (SETVAR "DIMTM" 00)		;  Minus tolerance
       (SETVAR "DIMTMOVE" 2)		;  Text movement
       (SETVAR "DIMTOFL" 0)		;  Force line inside extension lines
       (SETVAR "DIMTOH" 1)		;  Text outside horizontal
       (SETVAR "DIMTOL" 0)		;  Tolerance dimensioning
       (SETVAR "DIMTOLJ" 1)		;  Tolerance vertical justification
       (SETVAR "DIMTP" 00)		;  Plus tolerance
       (SETVAR "DIMTSZ" 00)		;  Tick size
       (SETVAR "DIMTVP" 00)		;  Text vertical position
       (SETVAR "DIMTXSTY" "Standard")	;  Text style
       (SETVAR "DIMTXT" 0.11)		;  Text height
       (SETVAR "DIMTZIN" 3)		;  Tolerance zero suppression
       (SETVAR "DIMUPT" 0)		;  User positioned text
       (SETVAR "DIMZIN" 12)		;  Zero suppression
       (IF (AND (TBLSEARCH "DIMSTYLE" "MECHDIMS") (<(GETVAR "EXPERT")5))
         (COMMAND "-DIMSTYLE" "SAVE" "MECHDIMS" "Y")
         (COMMAND "-DIMSTYLE" "SAVE" "MECHDIMS")
       )
)
